10 KEYOFF:COLOR13,1,1:CLS:X=5:Y=5:D=0:VI=5:VP=0:DEFINTR:RA=0:RB=0:R0=0:R1=0:R2=0:R3=0:FA=0:B=0:L=0:SCREEN1
20 GOSUB1310:GOSUB1390:GOSUB1340:GOSUB30:GOTO90
30 REM  press space 
40 A$="x":A$=INKEY$:IFA$<>" "THENGOTO40
50 RETURN
60 REM  LIMPIA SCROLL 
70 FORK=0TO23:PRINT:NEXTK
80 RETURN
90 REM  CLAVE 
100 GOSUB60:LOCATE8,7:PRINT"Introduce la":PRINT:PRINT"            ":PRINT"             W":PRINT"             ":PRINT:PRINT"     XWWWWWWWWWWWWWWWWWY":PRINT"     V                ?V"
110 PRINT"     ZWWWWWWWWWWWWWWWWW[":LOCATE6,14:INPUT RESP$
120 IF RESP$="yosoyelhuevo  ?V" THEN PLAY"e9a5":LOCATE7,18:PRINT"Sigamos con ...":GOSUB30:ELSE PLAY"v12c9":CLS:GOTO100
130 REM  DE INVENCION PRO 
140 GOSUB60:COLOR15,1:LOCATE3,11:PRINT" DE INVENCION PROPIA ":GOSUB30:GOSUB60:LOCATE0,0:COLOR14,1:PRINT"WPara que es ese plato.      WEra de una tartaW contesto  Alicia.":PRINT"WLo guardare en este saco,porsi encontramos una tarta."
150 PRINT"Alicia le ayudo a meter el   plato en el saco pero estaba tan lleno de tratos que no   podian. A veces era el torpe CABALLERO quien acaba dentro.Lo consiguieron y EL dijo:   WEspero que lleves el pelo   bien sujeto. Aqui el viento":GOTO210
160 REM  RESTA VIDA 
170 VI=VI-1:PLAY"v14c9":IFVI<1THENGOSUB60:GOTO180:ELSE RETURN
180 REM  DREAM OVER 
190 PRINT:PRINT:PRINT:PRINT"            ":PRINT"               ":PRINT"             ":PRINT"                 ":PRINT"              "
200 PRINT:PRINT"           O V E R":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PLAY"v12bafbafagr5agrbafbafba3rgfre5re5rd1","v12cdcdcdcdr5cdrcdcdcdef3rbara6ra6ra1":GOSUB30:RUN
210 REM ------- seguimos ----------
220 PRINT"es muy fuerte. Se me ocurre  que ates tu pelo a un palo.  Crecera hacia arriba como unaenredadera. Entonces al ya nocolgar hacia abajo no se po- dra caer.Que opinas de mi in-vento?":PRINT"Alicia pensaba en ello mien- tras caminaban.":GOSUB30
230 PRINT"El CABALLERO no hacia mas quecaerse una y otra vez.":PRINT
240 INPUT"Cuando el caballo paraba, ha-cia donde crees que caia el  CABALLERO";RESP$:IFRESP$<>"delante"ANDRESP$<>"hacia delante"THENGOSUB160:PRINT"\ No.Pista:delante/atras/iz- quierda/derecha.":GOTO240:ELSEPLAY"e9a5":PRINT"B Si!":PRINT
250 INPUT"Cuando el caballo arrancaba, hacia donde crees que caia   el CABALLERO";RESP$:IFRESP$<>"atras"ANDRESP$<>"hacia atras"THENGOSUB160:PRINT"\ Nooo.":GOTO250:ELSEPLAY"e9a5":PRINT"B Pues si.":PRINT
260 PRINT"Si se mantenia al arrancar,  acababa cayendose por un ladoy casi siempre por el lado deAlicia.":PRINT"WVeo que le falta un poco de practicaWdijo Alicia.":PRINT"WPorque lo dices?! Tengo mu- chisima practica! Soy un ji-"
270 PRINT"nete excelente. El gran arte de la equitacion consiste en mantener...":PRINT"Cayo de cabeza sin terminar  la frase.Y tan fuerte fue el golpe que Alicia le dijo mi- entras le ayudaba:":PRINT"WEspero que no se haya roto  ningun hueso!"
280 PRINT"WNinguno de importancia.Como decia, el gran arte de la e-":GOSUB30:PRINT"quitacion consiste en manten-er el equilibrio adecuadamen-te,lo ves?":PRINT"Solto las riendas y alzo los brazos para la demostracion,yesta vez cayo de espaldas y"
290 PRINT"entre las patas del caballo. WY practica,mucha practica.  WEsto es ridiculoWdijo AliciaenfadadaW.Deberia comprarse  un caballo de madera con rue-das.":PRINT"WSupongo que seran mas doci- les.":PRINT"WPues claro,mucho mas!"
300 PRINT"WEntonces comprare uno.Bueno,mejor dos o tres.":PRINT"Como veia que la conversacionno iba a ninguna parte,Aliciadecidio cambiar de tema.":GOSUB30:PRINT"WHay que ver que casco tan   bonito tiene usted.":PRINT"WEsto no es un casco,chiqui- lla!
310 PRINT:INPUT"Cual es el nombre tecnico    para el casco de un caballero";RESP$:IFRESP$<>"yelmo"THENGOSUB160:PRINT"\ Fallaste!":GOTO310:ELSEPLAY"e9a5":PRINT"B Muy bien!":PRINT
320 PRINT"El CABALLERO miro el yelmo   colgado de su silla.":PRINT"WNo esta mal,pero invente unomejor.Uno tan grande que mis caidas eran cortisimas, pues el yelmo llegaba mucho antes al suelo que yo.Pero era tan grande que un dia me cole"
330 PRINT"dentro y el otro CABALLERO   BLANCO se lo puso por despis-te.Tuve que darle unas pata- das para que se lo quitase.Y tardaron horas en sacarme de alli!":PRINT"Con la excitacion del momentoel CABALLERO cayo de nuevo,  asustando a ALICIA porque"
340 PRINT"quedo clavado de cabeza en   una profunda zanja.":PRINT"WHoras y horas...W seguia di-ciendo.":GOSUB30:PRINT"WPero como puede seguir ha-  blando estando asi?W le pre- gunto Alicia intentando sa-  carle tirando de un pie."
350 PRINT"WY que tiene eso que ver? Mi mente funciona igual.De hechocuanto mas cabeza abajo estoymejores son mis inventos.    Una vez de pie,vieron que es-taban ya en el final del bos-que.":PRINT"WY aqui debo dejarte.Te veo  triste, asi que te cantare"
360 PRINT"una cancion para reconfortar-te.":PRINT"WEs muy larga?":PRINT"WSi, pero tan bella que tus  ojos se llenaran de lagrimas o... o no.La cancion se llama'Ojos de Merluza'.":PRINT"WQue nombre tan raro.":GOSUB30
370 PRINT"WNo,te equivocas,el nombre es'El Viejo Viejales'.":PRINT"WNo entiendo...":PRINT"WNo importa. De todas formas el titulo es 'Sentado en una Cerca'.":PRINT"El CABALLERO paro su caballo,solto las riendas y con una  mano marco el ritmo de la"
380 PRINT"cancion. De todas las cosas  que le paso ese dia, esta es la que recordaria Alicia mas nitidamente y con mas afecto.Los ojos azules y la sonrisa bonochona del CABALLERO. El  brillo de la armadura donde  el sol se reflejaba, deslum-"
390 PRINT"brandola.El caballo pastando a su aire de aqui para alla. Y detras las sombras del bos-que alargandose mientras es- cuchaba la melancolica musicade la cancion.":GOSUB30:PRINT"Pero si la musica no es ori-ginal, es de la cancion 'Te"
400 PRINT"lo doy todo, No puedo darte  maspenso Alicia.Entonces es-cucho atentamente la cancion,aunque desde luego que no se le llenaron los ojos de la-  grimas."::PRINT:PRINT:PRINT"(AYUDA AL CABALLERO CON LA    LETRA DE LA CANCION)":GOSUB30
410 PRINT:PRINT:PRINT"Te contare un relato":PRINT"De cuando vi a un viejo vie- jales,":PRINT"Subido a una cerca como un   ____,":PRINT"Y pregunte por sus andares.":PRINT
420 INPUT"Que palabra falta";RESP$:IFRESP$<>"gato"THENGOSUB160:PRINT"\ No.Pista: miau...":GOTO420:ELSEPLAY"e9a5":PRINT"B A tope!":PRINT
430 PRINT"Dijo Busco mariposas,":PRINT"Para hacer bizcocho.":PRINT"Se lo vendo a marineros,":PRINT"Lo compran de ocho en ____.":PRINT
440 INPUT"Que palabra falta";RESP$:IFRESP$<>"ocho"THENGOSUB160:PRINT"\ No me gusta.":GOTO440:ELSEPLAY"e9a5":PRINT"B A tope!":PRINT
450 PRINT"Yo no supe que contestar     A lo que me dijo el viejote:":PRINT"Dime la verdad":PRINT"O te afeito el ______.":PRINT
460 INPUT"Que palabra falta";RESP$:IFRESP$<>"bigote"THENGOSUB160:PRINT"\ Intentalo de nuevo.":GOTO460:ELSEPLAY"e9a5":PRINT"B Que bonito.":PRINT"                   _"
470 PRINT"Busco en las montanas":PRINT"Cristalinos __________,":PRINT"Y con unas cuantas llamas":PRINT"Los convierto en crecepelos."
480 INPUT"Que falta";RESP$:IFRESP$<>"riachuelos"THENGOSUB160:PRINT"\ No. Pista:llevan agua.":GOTO480:ELSEPLAY"e9a5":PRINT"B Bellisimo!":PRINT
490 PRINT"Le zarandee de lado a lado   Hasta ponerle la cara morada.El motivo estaba claro,":PRINT"No me creia ____.":PRINT
500 INPUT"Que palabra falta";RESP$:IFRESP$<>"nada"THENGOSUB160:PRINT"\ No. Pista:(vacio:).":GOTO500:ELSEPLAY"e9a5":PRINT"B Uh yu yui!":PRINT
510 PRINT"Y Dijo Busco ojos de merluzaEntre las sombras de un brezoCon los que hago botones de  gamuza":PRINT"Que luego vendo al ____.":PRINT
520 INPUT"Que palabra falta";RESP$:IFRESP$<>"peso"THENGOSUB160:PRINT"\ No queda bien.":GOTO520:ELSEPLAY"e9a5":PRINT"B Mucho mejor!":PRINT
530 PRINT"A veces hago hoyos":PRINT"Buscando panecillos untados, O limo patas de centollo":PRINT"Para llevarme a la boca un   ______.":PRINT
540 INPUT"Que palabra falta";RESP$:IFRESP$<>"bocado"THENGOSUB160:PRINT"\ No se, no se...":GOTO540:ELSEPLAY"e9a5":PRINT"B Elegante redundancia!":PRINT
550 PRINT"Y mi vida es Esta,":PRINT"Noble Caballero.":PRINT"Brindo por su testa":PRINT"Y por la de su ________.":PRINT
560 INPUT"Que palabra falta";RESP$:IFRESP$<>"escudero"THENGOSUB160:PRINT"\ No. Pista: siervo.":GOTO560:ELSEPLAY"e9a5":PRINT"B Equilicuasss!":PRINT
570 PRINT"Me mostre agradecido":PRINT"Por saber su secreto,":PRINT"Y me fui a un puente a       quitarle el oxido":PRINT"Pues fue ese mi _____.":PRINT
580 INPUT"Que palabra falta";RESP$:IFRESP$<>"deseo"THENGOSUB160:PRINT"\ No me llena.":GOTO580:ELSEPLAY"e9a5":PRINT"B No esta mal.":PRINT
590 PRINT"Y ahora, si por accidente    Meto los dedos en pegamento, O me muerde una serpiente    Y no tengo unguento,":PRINT"O en una caida inminente     Me doy contra el cemento,":PRINT"Recuerdo con lagrima inci-   piente"
600 PRINT"Aquel anciano al _______.":PRINT
610 INPUT"Que palabra falta";RESP$:IFRESP$<>"momento"THENGOSUB160:PRINT"\ Casi pero... no.":GOTO610:ELSEPLAY"e9a5":PRINT"B Estupefacto!":PRINT
620 PRINT"Era tranquilo y hablaba des- pacio,":PRINT"Cara de cuervo,pelo grisaceo,Mirada distraida como la de  un crustaceo,":PRINT"Su dura vida fue solo el pre-facio.":PRINT"Cuando hablaba no se le en-  tendia nada,"
630 PRINT"Era como un bufalo llamando ala manada,":PRINT"Aquella tarde de verano tercaQue converse con un viejo    sentado en una _____.":PRINT
640 INPUT"Que palabra falta";RESP$:IFRESP$<>"cerca"THENGOSUB160:PRINT"\ No, no impacta.":GOTO640:ELSEPLAY"e9a5":PRINT"B Perfecto, eso es un final  redondo!":PRINT
650 PRINT"Mientras pronunciaba las ul- timas palabras de la cancion,el CABALLERO cogio las rien- das y dirigio su caballo ha- cia el camino por donde habiavenido.":PRINT"WSolo tienes que andar unos  metros, bajar esa colina y   saltar ese arroyo para"
660 PRINT"convertirte en REINA. Pero   antes,te importaria despedir-me con tu mano cuando pase   ese recodo del camino? Eso medara valor para dejarte.     WSera un placer.":PRINT"Se dieron la mano y el CABA- LLERO se fue letamente por"
670 PRINT"el camino, tambaleandose de  lado a lado.":GOSUB30:PRINT"Cuando llego al recodo Aliciaagito la mano hasta que desa-parecio de su vista.":PRINT"WEspero haberle dado valorW  dijo mientras corria colina  abajoW. Y ahora al arroyo y"
680 PRINT"sere REINA! Que bien suena!  Ya al borde del riachuelo:":PRINT"WLa octava casilla!W exclamo mientras saltaba el arroyo   ":PRINT"            ***":PRINT:PRINT"y caia en un suave y verde   campo salpicado de flores.   WQue feliz estoy de haber
690 PRINT"llegado.Pero,que es esto que llevo en la cabeza?Wdijo qui-tandose el pesado objeto paraver que era.":PRINT:PRINT"Era una corona de oro.":GOSUB30
700 REM  ALICIA REINA  
710 GOSUB60:COLOR15,1:LOCATE6,11:PRINT" ALICIA REINA ":GOSUB30:GOSUB60:LOCATE0,0:COLOR10,1:PRINT"WGrandioso! Nunca pense ser  Reina tan pronto!":PRINT"Alicia se levanto y ando un  poco con cuidado de que no secayera la corona."
720 PRINT"WY si de verdad Wdecia mien- tras se sentaba de nuevoW soyuna Reina, me acostumbrare a ella con el tiempo.":PRINT"Le habian sucedido cosas tan raras que apenas se sorpren- dio de que de repente tuvieraa su lado sentadas la REINA"
730 PRINT"ROJA y la REINA BLANCA.Le hu-biera gustado preguntarlas   como habian llegado hasta    alli,pero penso que seria unafalta de educacion.":PRINT:PRINT"(3 REINAS JUNTAS! SI VINIERA OTRA MAS, DONDE LA SENTARIAS EN EL SIGUIENTE TABLERITO DE 4x4?)"
740 GOSUB30:PRINT
750 PRINT"          XWRWRWRWY":PRINT"         4V V VRV V":PRINT"          TWUWUWUWS":PRINT"         3VRV V V V":PRINT"          TWUWUWUWS":PRINT"         2V V V V V":PRINT"          TWUWUWUWS"
760 PRINT"         1V VRV V V":PRINT"          ZWQWQWQW[":PRINT"           a b c d ":PRINT
770 INPUT"En que ca-silla sentarias a  la Reina (ej: a3)";RESP$:IFRESP$<>"d2"THENGOSUB160:PRINT"\ Noo.Pista:busca en un lugardonde no se 'ataquen'.":GOTO770:ELSEPLAY"e9a5":PRINT"B Ese es el mejor sitio. Muy bien!":PRINT
780 PRINT"WDisculpen,podrian decirme siel juego a termi...":PRINT"WHabla cuando te hablenWdijo la REINA ROJA cortante.      WPero entonces,nadie hablariacon nadie nunca,no?Wdijo Ali-cia.":PRINT"WQue tonteria! No ves que... bueno...Que querias decir
790 PRINT"con eso de 'Si de verdad soy una Reina'? Para ser Reina   antes debes pasar un examen, y cuanto antes mejor.":PRINT"WSolo dije que si lo fuera...WNo, dijiste mucho mas que   eso,mucho mas!W dijo la REINABLANCA.":GOSUB30
800 PRINT"WCierto. Deberias decir siem-pre la verdad, pensar antes  de hablar y apuntarlo todo   despuesWdijo la REINA ROJA.  WPero yo no queria decir eso.WEse es el problema. Que ha- blas sin sentido. Hasta los  chistes deben_de tener sen-"
810 PRINT"tido.Y una nina es mucho mas importante que un chiste. No puedes negar el hecho,aunque lo intentes con las 2 manos. WNo puedo negar algo con las manos.":PRINT"WNadie dice que puedas. Solo que no podrias aunque lo in- tentaras."
820 PRINT"WEsta en esa fase de negar loque sea,solo que no sabe que negarWdijo la REINA BLANCA.  WQue lastima de temperamentoWdijo la REINA ROJA.":GOSUB30:PRINT"Pasaron un par de minutos en incomodo silencio.":PRINT"WTe invito a la fiesta de"
830 PRINT"Alicia de esta tardeWdijo porfin la REINA ROJA a la REINA BLANCA.":PRINT"WY yo a tiW dijo la REINA    BLANCA.":PRINT"WNo sabia que iba a tener unafiestaWdijo AliciaW. Pero si es asi, deberia ser yo quien invitara a la gente."
840 PRINT"WPara eso debes pasar antes  el examen de ReinaWdijo la   REINA ROJAW.Comencemos...":GOSUB30:PRINT:PRINT"Cuantas son:":PRINT"    una":GOSUB1470:GOSUB1470:GOSUB1470:FORX=0TO30:PRINT"    +una":BEEP:GOSUB1470:NEXTX
850 FORX=0TO150:LOCATE(RND(TIME)*23),(RND(TIME)*22):PRINT("+una"):BEEP:NEXTX
860 LOCATE0,23:INPUT"Cual es tu respuesta";RESP$:IFRESP$="183"THENPLAY"v14e9a5":PRINT"M Si! M":VI=10:ELSEPRINT"WVeo que sumar no es lo tuyo.WPerdi la cuenta.":PRINT"WNo sabe sumarWdijo la REINA ROJAW.Probemos las restas:   quitale 9 a 8.":GOTO880
870 PRINT:PRINT"WProbemos con las restas:    quitale 9 a 8Wdijo la REINA  ROJA."
880 PRINT"WNo puedo,es impo...":PRINT"WNo sabe restarWdijo la REINABLANCAW.Sabes dividir? Divideun barra con un cuchillo.Cuales la respuesta?":PRINT"WPues...":PRINT"WPan y mantequillaWinterrum- pio la REINA ROJAW. Volvamos"
890 INPUT"a las restas.Quitale un huesoa un perro.Que queda";RESP$:IFRESP$="paciencia"THENPLAY"v14e9a5":PRINT"N Si! N":VI=15:PRINT:GOTO910:ELSEPRINT"WFallaste otra vez. Queda su 'paciencia'W dijo la REINA   ROJA.":PRINT"WNo lo entiendoWdijo Alicia.
900 PRINT"WPues esta bien claro. Al no haber hueso el perro pierde  la paciencia y se va. Por lo tanto eso es lo unico que    queda,su paciencia.Vamos,eso lo sabe hasta ALMENABAR."
910 PRINT"WTe sabes el abecedario?W    pregunto la Reina BLANCAW.Po-drias recitarlo todo seguido"
920 INPUT RESP$:IFRESP$<>"abcdefghijklmnopqrstuvwxyz"THENGOSUB160:PRINT"WMal,muy mal \":PRINT:ELSEPLAY"v14e9a5":PRINT"W Bien recitado B":VI=VI+1:PRINT
930 PRINT"WVamos con los idiomasW dijo la REINA ROJAW.Como se dice  en Frances 'estruvel'?":PRINT"WPero esa palabra no existe  en el Castellano.":PRINT"WY quien dijo que existiera? WSi me dice de que idioma es 'estruvel' yo le dire como"
940 PRINT"se dice en FrancesWdijo astu-tamente Alicia.":PRINT"WUna Reina jamas negocia.    WNo nos enfadesW dijo ansiosala REINA BLANCAW. Cual es la causa del relampago?":PRINT"WEl truenoWdijo Alicia deci- didamenteW.Espere,quizas era al reves...
950 PRINT"WDemasiado tarde. Una vez di-cho no puedes volver atrasW  dijo la REINA ROJA.":GOSUB30:PRINT:PRINT"Esta ultima frase recuerda a:'pieza tocada,pieza movida'.":PRINT
960 INPUT"De que 'juego' es tipica estafrase";RESP$:IFRESP$<>"ajedrez"THENGOSUB160:PRINT"\ No.Con lo facil que es.":GOTO960:ELSEPLAY"v14e9a5":PRINT"B Acertaste!":PRINT
970 PRINT"WEso me recuerda aquella tor-menta que hubo uno de los    martes de la semana pasadaW  dijo la REINA BLANCA.":PRINT"WEn mi pais solo tenemos un  martes por semana.":PRINT"WQue simpleza.Nosotros llega-mos a tener hasta 5 dias o 5"
980 PRINT"noches a la vez en inverno,  que al estar juntitos dan mascalor.":PRINT"WComo iba diciendoWsiguio la REINA BLANCAW,ese dia se pre-sento HUMPTY DUMPTY en mi    puerta con un sacacorchos en la mano.":PRINT"WY que queria?W pregunto la"
990 PRINT"REINA ROJA":PRINT"WBusca un hipopotamo.Pero no habia ninguno entonces.":GOSUB30:PRINT"WY eso es normal?Wpregunto   Alicia atonita.":PRINT"WSolo los juevesWdijo la REI-NA ROJA.":PRINT"WCreo que se lo que queria"
1000 PRINT"HUMTY DUMPTYWdijo AliciaW.EL queria castigar a los peces  porque...":PRINT"WFue una tormenta terribleW  interrumpio la REINA BLANCAW.Se abrio un agujero en el te-cho y se colaban por El los  truenos,que alborotaban toda"
1010 PRINT"la casa.Pase tanto miedo que me olvide de mi nombre.      Que tendra que ver una cosa con la otra?penso Alicia.   WTienes que perdonarlaW dijo la REINA ROJAW.Cuando se ponenerviosa tiende a decir ton- terias.Pero no tiene maldad  ninguna.
1020 GOSUB30:PRINT"La REINA BLANCA miro a Aliciatiernamente.":PRINT"WEs un pedazo de panWcontinuola REINA_ROJA.":PRINT"WQue sueno tengoWdijo la REI-NA BLANCA apollando la cabezasobre el hombro de Alicia.   WLa pobre esta cansada. Aca-"
1030 PRINT"riciale el pelo y cantale unananaWdijo la REINA ROJA.":PRINT"WPero no me se ninguna.":PRINT"WPuedes cantarle la siguente,si te gusta:":GOSUB30:PRINT:PRINT"Duerme ahora, con tu amiga   Alicia,":PRINT"Descansar en sus brazos, una delicia."
1040 PRINT"Duerme, hasta que llegue la  cena,":PRINT"Despues bailaremos todas en  la _______.":PRINT
1050 INPUT"Que palabra falta";RESP$:IFRESP$<>"verbena"THENGOSUB160:PRINT"\ No.Pista:fiesta popular.":GOTO1050:ELSEPLAY"e9a5":PRINT"B Preciosa nana.":PRINT
1060 PRINT"WY ahora que sabes la letra, cantanosla a las 2, que yo   tambien estoy cansada.":PRINT"Y diciendo esto la REINA ROJAse apollo en el otro hombro  de Alicia y en un momento te-nia a las 2 Reinas roncando  encima de ella."
1070 PRINT"WEsto es lo nunca visto en   toda la historiaWexclamo Ali-ciaW. Una persona cuidando lasiesta de 2 Reinas a la vez. Venga levantaros ya, pesadas!Wla unica respuesta que obtu-vo fueron sus ronquidos.":GOSUB30
1080 PRINT"Los ronquidos fueron cambian-do hasta parecerse a una can-cion.Alicia se concentro tan-to en averiguar la letra que apenas se dio cuenta cuando  las cabezas se desvanecieron en su regazo.":PRINT"Cuando se levanto, vio que"
1090 PRINT"estaba delante de una puerta.'ALICIA REINA' rezaba el arcosuperior.A cada lado del arcohabia una cuerdecita. En una ponia 'Visitas' y en la otra 'Sirvientes'.":PRINT"WVaya,cual debo usar?Wse pre-guntaba AliciaW.No soy visi-"
1100 PRINT"ta ni sirviente.Deberia haberuna que pusiera '_____' para que yo pudiera tirar de ella."
1110 INPUT"Que deberia poner";RESP$:IFRESP$<>"Reina"ANDRESP$<>"reina"THENGOSUB160:PRINT"\ Noo.Su 'Majestad' necesita una pista?":GOTO1110:ELSEPLAY"e9a5":PRINT"B Buena respuesta.":PRINT
1120 PRINT"Entoces,la puerta se abrio unpoco y una criatura con un   largo pico dijo:":PRINT"WTodo lleno hasta la proxima semanaWy dio un portazo.     Alicia llamo y llamo a la    puerta durante un buen rato  hasta que una vieja Rana,que"
1130 PRINT"estaba sentada bajo un arbol,se levanto y fue hacia Ella  cojeando lentamente:vestia deamarillo brillante y grandes botas.":PRINT"WQue ocurre?W dijo con voz   ronca y profunda.":PRINT"WDonde esta el sirviente que"
1140 PRINT"responde a la puerta?Wpregun-to Alicia indignada.":PRINT"WQue puerta?":PRINT"WEsta,por supuesto.":GOSUB30:PRINT"La Rana miro la puerta con   sus grandes y pesados ojos   durante 1 minuto.Se acerco,lafroto con un dedo,como si"
1150 PRINT"comprobara la pintura y miro a Alicia.":PRINT"WEl que responde a la puerta?Y que le pregunto?W dijo la  Rana.":PRINT"WNo le entiendo.":PRINT"WNo hablo en Castellano? Que que le pregunto la puerta?   WNada! Solo la he golpeado"
1160 PRINT"para que me abrieran.":PRINT"WNo deberia haber hecho eso, La ha molestadoW murmuro la  Rana.Luego se acerco y la pe-go un puntapie con una de susgrandes botasW.No la moleste y Ella no le molestara a Us- tedW dijo cogeando de vuelta"
1170 PRINT"al arbol.":GOSUB30:PRINT"En ese momento se abrio la   puerta de par en par y se oyouna estridente voz cantar:":PRINT:PRINT"Al Mundo del Espejo Alicia   dijo Hola,":PRINT"Con cetro en la mano y coronaen la perola."
1180 PRINT"Venid Criaturas del Espejo  pues dentro de un rato":PRINT"Cenaremos las Reinas y nos   pondremos como el ____.
1190 PRINT:INPUT"Que palabra falta";RESP$:IFRESP$<>"Tato"ANDRESP$<>"tato"THENGOSUB160:PRINT"\ Pobre rima.":GOTO1190ELSEPLAY"e9a5":PRINT"B Perfecto!":PRINT
1200 PRINT"Y cientos de voces cantaron acoro:":PRINT:PRINT"Rapido, llenad los vasos sin dilacion,":PRINT"Rociad la mesa de botones y  estragon.":PRINT"Poned un raton en el Te y en cafe un gato,":PRINT"Y saludad a la REINA ALICIA  cuarenta veces ______!"
1210 PRINT:INPUT"Que palabra falta";RESP$:IFRESP$<>"cuatro"THENGOSUB160:PRINT"\ Hay que pulir esa idea.":GOTO1210ELSEPLAY"e9a5":PRINT"B Lo has clavado!":PRINT
1220 PRINT"La voz chillona:":PRINT:PRINT"Acercaros Criaturas del Es- pejo Alicia dijo,":PRINT"Desde tan lejos no oireis ni un pijo,":PRINT"Es un gran privilegio tomar  Te y cenar,":PRINT"Con la REINA ROJA, la REINA  BLANCA y mi ________."
1230 PRINT:INPUT"Que palabra falta";RESP$:IFRESP$<>"majestad"ANDRESP$<>"Majestad"THENGOSUB160:PRINT"\ Definitivamente... No!":GOTO1230ELSEPLAY"e9a5":PRINT"B Que ingenioso!":PRINT
1240 PRINT"El coro de nuevo:":PRINT:PRINT"Llenad los vasos de melaza y de tinta,":PRINT"O de cualquier otra cosa que tenga buena pinta.":PRINT"Mezclar arena con ceniza y   vino con nieve,":PRINT"Y saludad a Alicia noventa   veces _____!"
1250 PRINT:INPUT"Que palabra falta";RESP$:IFRESP$<>"nueve"THENGOSUB160:PRINT"\ No llega al corazon.":GOTO1250ELSEPLAY"e9a5":PRINT"B Eso es poesia y lo demas   son tonterias!":PRINT
1260 PRINT"WNoventa veces nueve! No aca-barian nunca de saludar!Mejorentro ya,que sino en la vida terminamos.":PRINT:PRINT"Y se produjo un gran silencioen el momento que Alicia     entro.":GOSUB30:GOTO1280
1270 REM   Dedicado a mis abuelos:       Trinidad Garcia  Jose Soto SotoValvina Sancibrian  Rosendo Gandara
1280 REM  FIN CARGA 3 
1290 GOSUB60:LOCATE0,8:COLOR8,1,1:PRINT" Has llegado al final de la    CUARTA CARGA del juego.":GOSUB1390:PRINT:PRINT:PRINT" Clave para la Quinta Carga:
1300 PRINT:PRINT"     XWWWWWWWWWWWWWWWWY":PRINT"     V yosoylareina V":PRINT"     ZWWWWWWWWWWWWWWWW[":GOSUB30:GOSUB30:RUN
1310 REM  JOESG PRESENTA 
1320 LOCATE0,7:PRINT"          ":PRINT"              ":PRINT"                ":PRINT"              ":PRINT"              ":PRINT"         ":PRINT"             PRESENTA:":PRINT:PRINT
1330 PRINT"Para el concurso de KONAMITO":PRINT"   de MSX-BASIC 2012-2013":RETURN
1340 REM  TITULO 
1350 GOSUB60:PRINT"               ":PRINT"              WWWWWWWW":PRINT"              A traves":PRINT"               del":PRINT"        espejo":PRINT"     y de lo"
1360 PRINT"           que":PRINT"            ALICIA":PRINT"                se":PRINT"       encontro":PRINT"              alli":PRINT"     WWWWWWWW":PRINT"     Carga #4"
1370 PRINT:PRINT:PRINT:PRINT"FFFFFF Pulsa Espacio FFFFFF":PRINT:PRINT
1380 RETURN
1390 REM  MUSICA TITULO 
1400 PLAY"v14","V12","V8"
1410 PLAY"c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8","","r8c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8"
1420 PLAY"c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8","e8r8e8r8f8r8g8r8r8r8r8r8f8r8g8r8f8r8e8","r8c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8"
1430 PLAY"c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8","e8r8e8r8f8r8g8r8r8r8r8r8f8r8g8r8f8r8e8","r8c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c8"
1440 PLAY"c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c5","r8r8r8r8r8r8r8r8r8r8r8r8r8r8r8r8r8r8g5","r8c8r8c8r8d8r8e8r8r8r8r8r8d8r8e8r8d8r8c5":RETURN
1450 REM  FIN MUSICA 
1460 PLAY"g","d","b":RETURN
1470 REM  delay100 
1480 FORY=0TO100:NEXTY:RETURN
